(deftemplate pers
    (slot name)
    (slot sex)
    (slot parent)
    (slot partener)
    )
(assert (pers(name Ion_Popescu)(sex M)(parent null)(partener Maria_Popescu)))
(assert (pers(name Maria_Popescu)(sex F)(parent null)(partener Ion_Popescu)))
(assert (pers(name Elena_Popescu)(sex F)(parent null)(partener Criastian_Popescu)))
(assert (pers(name Cristian)(sex M)(parent Maria_Popescu)(partener Maria_Popescu)))
(assert (pers(name Cristina)(sex F)(parent null)(partener Adrian)))
(assert (pers(name Adrian)(sex M)(parent Maria_Popescu)(partener Cristina)))
(assert (pers(name Tudor_Popescu)(sex M)(parent Cristina)(partener null)))

(assert (pers(name Adriana)(sex F)(parent null)(partener Ciprian)))
(assert (pers(name Ciprian)(sex M)(parent Maria_Popescu)(partener Adriana)))
(assert (pers(name Maria_Andreescu)(sex F)(parent Maria_Popescu)(partener Petre_Andreescu)))

(assert (pers(name Petre_Andreescu)(sex M)(parent null)(partener Maria_Andreescu)))
(assert (pers(name Ionel_Andreescu)(sex M)(parent Maria_Andreescu)(partener null)))


(facts)
(run)